home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / SAT 2.3a1 / StepZkrolly ƒ / sZprite.c < prev    next >
Encoding:
Text File  |  1994-08-21  |  1.2 KB  |  35 lines  |  [TEXT/KAHL]
  1. = Zfaces[1];
  2.         me->task = &HandleZprite;
  3. }
  4.  
  5. pascal void HandleZprite(SpritePtr me)
  6. {
  7.     //• if mode < 1 then Face := nil;{test av faceless.
  8.  
  9.     me->position.h = me->position.h + me->speed.h;
  10.     me->position.v = me->position.v + me->speed.v;
  11.     if ( me->position.h > gSAT.offSizeH ) //• 400.
  12.     {
  13.         me->speed.h = -zpeedH;
  14.         SATSoundPlay(theSound, 1, false);
  15.         me->face = Zfaces[0];
  16.     }
  17.     if ( me->position.h < -20 ) //• 50.
  18.     {
  19.         me->speed.h = zpeedH;
  20.         SATSoundPlay(theSound, 1, true);
  21.         me->face = Zfaces[1];
  22.     }
  23.     if ( me->position.v > gSAT.offSizeV ) //• 400.
  24.     {
  25.         me->speed.v = -zpeedV;
  26.         SATSoundPlay(theSound, 1, false);
  27.     }
  28.     if ( me->position.v < -20 ) //• 50.
  29.     {
  30.         me->speed.v = zpeedV;
  31.         SATSoundPlay(theSound, 1, true);
  32.     }
  33. }
  34.  
  35.